如需移除,請網站管理者移除.
CONST SMTPSendUsing = 2 ' Send using Port (SMTP over the network)
CONST SMTPServer = "smtpServer"
CONST SMTPServerPort = smtpPort
CONST SMTPAuthenticate = 1 ' 1=Basic, 2=NTLM (Windows Authentication), 0=none
CONST SMTPUserName = ""
CONST SMTPUserPass = ""
CONST SMTPUseSSL = false
CONST SMTPConnectionTimeout = 10 'seconds
Dim sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg
StrTexto = "Text"
StrNomeCamada = "XXX"
sSubject = "COMOS: " & StrNomeCamada
sEmail = "emailTo"
sMailBody = "<p><font face=""Verdana"" size=""2"">" & StrTexto & "</font></p><font face=""Verdana"" size=""2""><i><font color=""#FF0000"">MENSAGEM AUTOMÁTICA Do SISTEMA...<br>FAVOR NÃO RESPONDER!</font></i><br><font color=""#C0C0C0"">SUPORTE COMOS</font></font></p>"
sFrom = "emailFrom"
sReadReceipt = true
'sMsg = ""
'On Error Resume Next
Dim oMail, oConfig, oConfigFields
Set oMail = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set oConfigFields = oConfig.Fields
With oConfigFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SMTPSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPServerPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = SMTPAuthenticate
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPUserPass
.Update
End With
oMail.Configuration = oConfig
oMail.Subject = sSubject
oMail.From = sFrom
oMail.To = sEmail
oMail.HTMLBody = sMailBody
'oMail.TextBody = "You have received a HTML email from " & sFrom & " but your email client can only accept text emails."
oMail.Send
Set oMail=Nothing
sMsg = "Message Sent"
'if Err.Number <> 0 then sMsg = "ERROR: " & Err.Description
回覆